0 REM   ********************
1 REM   *                  *
2 REM   *  ELEPHANT  HUNT  *
3 REM   *  --------------  *
4 REM   * BY PAUL WILLIAMS *
5 REM   *                  *
6 REM   * DEMONSTRATION OF *
7 REM   *  BASIC COMPLIER  *
8 REM   *                  *
9 REM   ********************
10 DEFFNA(X)=PEEK(56324)
20 POKE650,255
30 FD=100
40 NE=8
50 POKE53280,0:POKE53281,0
100 GOSUB560
110 PRINT"[147]    SCORE:   YOU:"VV" ELEPHANTS:"BB
111 IFVV+BB=0THENNN=0:GOTO115
112 NN=VV*100/(VV+BB)
115 PRINT"    GIVING YOU A RATING OF:"NN"[157]%
116 [153]""
120 [153]"    *** FOREST DENSITY:   ";FD;"***"
121 [153]"    *** NUMBER OF ELEPHANTS:";NE;"***"
122 [153]"  PRESS [RETURN] TO KEEP THESE VALUES"
125 [133]"FOREST DENSITY";OP:[139]OP[177]0[175]OP[179]700[167]FD[178]OP
127 [133]"NUMBER OF ELEPHANTS";OP:[139]OP[177]0[175]OP[179]100[167]NE[178]OP
140 [143]
150 [153]"SYSLOAD"
151 SP[178]32:SC[178]1024:GG[178]81:UU[178]83:FT[178]40:CH[178]102:FI[178]1126:N[178]1:DQ[178]54272
180 [134]E(120)
190 [129]X[178]SC[164]SC[170]39:[151]X[170]DQ,5:[151]X[170]960[170]DQ,5:[151]X,CH:[151]X[170]960,CH:[130]
200 [129]X[178]1064[164]1944[169]FT:[151]X[170]DQ,5:[151]X[170]39[170]DQ,5:[151]X,CH:[151]X[170]39,CH:[130]
210 [129]X[178]N[164]FD:I[178]SC[170][165]A(0)[172]3[170]([165]A(0)[175]191):[151]I[170]DQ,5:[151]I,CH:[130]
220 [151]FI,43:[151]FI[170]DQ,1
230 P[178]SC[170][181]([165]A(0)[175]15)[170]882:[151]P,UU:[151]P[170]DQ,7
240 [129]X[178]N[164]NE
250 E(X)[178]SC[170][181]([165]A(0)[170][165]A(0)[170][165]A(0)[170]40)
260 [139][194](E(X))[179][177]SP[167]250
270 [130]
280 [141]330
290 EN[178]EN[170]N:[139]EN[177]NE[167]EN[178]N
300 Q[178]E(EN):[141]410:E(EN)[178]Q
310 [139]Q[178]P[167]510
320 [137]280
330 P1[178]P
340 [161]T$
341 TT[178]0
342 [139]T$[178]"Z"[167]TT[178]39:[137]360
343 [139]T$[178]"X"[167]TT[178]40:[137]360
344 [139]T$[178]"C"[167]TT[178]41:[137]360
345 [139]T$[178]"A"[167]TT[178][171]1:[137]360
346 [139]T$[178]"S"[167]TT[178]0:[137]360
347 [139]T$[178]"D"[167]TT[178]1:[137]360
348 [139]T$[178]"Q"[167]TT[178][171]41:[137]360
349 [139]T$[178]"W"[167]TT[178][171]40:[137]360
350 [139]T$[178]"E"[167]TT[178][171]39:[137]360
351 [139]T$[178]""[167][153]"LOAD":[128]
360 P[178]P[170]TT
370 [139][194](P)[178]43[167]540
380 [139][194](P)[179][177]SP[167]P[178]P1
390 [151]P,UU:[139]P1[179][177]P[167][151]P1,SP
400 [142]
410 Q0[178]Q:Q1[178]Q[171]SC:P1[178]P[171]SC
420 QY[178][181](Q1[173]FT):PY[178][181](P1[173]FT)
430 QX[178]Q1[171]QY[172]FT:PX[178]P1[171]PY[172]FT
440 X[178][180](PX[171]QX):Y[178][180](PY[171]QY)
450 E[178]Q[170]X[170]FT[172]Y:[139][194](E)[178]SP[176][194](E)[178]UU[167]490
460 E[178]Q[170]X:[139][194](E)[178]SP[176][194](E)[178]UU[167]Y[178]0:[137]490
470 E[178]Q[170]FT[172]Y:[139][194](E)[178]SP[176][194](E)[178]UU[167]X[178]0:[137]490
480 X[178]0:Y[178]0
490 Q[178]Q[170]X[170]FT[172]Y:[151]Q,GG:[151]Q0,SP
500 [142]
510 [129]T[178]1[164]1500:[130]
520 [153]"LOAD";[163]15);"YOU LOSE!":BB[178]BB[170]1
530 [137]550
540 [153]"LOAD";[163]15);"YOU WIN!":VV[178]VV[170]1
550 [151]198,0
551 [129]X[178]1[164]3000:[130]
552 [161]T$:[139]T$[179][177]""[167]110
553 [128]
560 [153]"SYSLOAD           ELEPHANT HUNT"
570 [153]"           VALVALVALVALVALVALVALVALVALVALVALVALVAL"
580 [153]"  YOU HAVE TO MAKE YOUR WAY THROUGH
590 PRINT"A JUNGLE TO YOUR HOME, MARKED '+'.
600 [153]"HOWEVER, THERE IS ONE SLIGHT PROBLEM;
610 PRINT"ANGRY,HUNGRY ELEPHANTS LIKE EATING
620 [153]"PEOPLE FOR TEA. AN ELEPHANT LOOKS LIKE
630 PRINT"THIS: '[209]' AND YOU LOOK LIKE THIS: '[211]'
640 [153]"TREES LOOK LIKE THIS: 'SPC(' , AND YOU
650 PRINT"CANNOT WALK THROUGH OR CLIMB THEM.
660 [153]"BEWARE-THE ELEPHANTS OFTEN HIDE IN THE
670 PRINT"TREES TO CATCH YOU UNAWARES!
680 [153][163]7)"PRESS ANY KEY TO CONTINUEWAIT
690 GETT$:IFT$=""THEN690
710 PRINT"[147]YOU MOVE USING THESE KEYS:
720 [153]"             Q W E"
730 [153]"              (null)(null)(null) "
740 [153]"             ATAN(null)TAND"
750 [153]"              (null)(null)(null) "
760 [153]"             Z X C"
770 [153]"TO EXIT FROM THE GAME, PRESS THE [STOP]
780 PRINT"KEY DURING THE ACTUAL GAME.
790 [153]"  BEWARE - THE LESS ELEPHANTS LURKING
800 PRINT"AROUND, THE FASTER THEY MOVE !!
810 [153]"
820 PRINT"  REMEMBER - IT'S THE ELEPHANTS THAT 
830 [153]"ARE HUNTING YOUWAIT !
840 PRINTTAB(7)"PRESS ANY KEY TO START[146]
850 [161]T$:[139]T$[178]""[167]850
870 [142]